home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / CallBack / SOURCE / CBACKGEN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-03  |  3.3 KB  |  159 lines
  1. /*
  2. *   Visual Basic Callback Server Source
  3. *
  4. *   (c) Copyright Microsoft Corp. 1995 All Rights Reserved
  5. */ 
  6.  
  7. #include "hostenv.h"
  8. #include "svrmain.h"
  9. #include "CBackGen.h"
  10.  
  11. CCBGenerator FAR* CCBGenerator::Create(void)
  12. {
  13.     CCBGenerator FAR* pobj = NULL;
  14.     pobj = new CCBGenerator();
  15.     if (pobj != NULL)
  16.         pobj->AddRef();
  17.     return pobj;
  18. }
  19.  
  20. CCBGenerator::CCBGenerator()
  21. {
  22.     m_pIID = &IID__CallBackGenerator;
  23. }
  24. CCBGenerator::~CCBGenerator()
  25. {
  26. }
  27. STDMETHODIMP
  28. CCBGenerator::get_NewCallBack(THIS_ VBCallBackType Type, VARIANT VBHandler, VARIANT Contained, CCallBack FAR* FAR* retVal)
  29. {
  30.     HRESULT hr = NOERROR;
  31.     *retVal = NULL;
  32.     IDispatch FAR* pdispVBHandler;
  33.     VARIANT_BOOL bContained;
  34.     //Coerce the VBHandler optional parameter.
  35.     if (VBHandler.vt == VT_ERROR && VBHandler.lVal == DISP_E_PARAMNOTFOUND)
  36.         pdispVBHandler = NULL;
  37.     else if SUCCEEDED(VariantChangeType(&VBHandler, &VBHandler, VARIANT_NOVALUEPROP, VT_DISPATCH))
  38.         pdispVBHandler = VBHandler.pdispVal;
  39.     else
  40.         return ResultFromScode(DISP_E_TYPEMISMATCH);
  41.     //Coerce the Contained optional parameter
  42.     if (Contained.vt == VT_ERROR && Contained.lVal == DISP_E_PARAMNOTFOUND)
  43.         bContained = FALSE;
  44.     else if SUCCEEDED(VariantChangeType(&Contained, &Contained, 0, VT_BOOL))
  45.         bContained = Contained.bool;
  46.     else
  47.         return ResultFromScode(DISP_E_TYPEMISMATCH);
  48.         
  49.     switch (Type)
  50.         {
  51.         #define CB_DO_CREATE
  52.         #include "CBackDat.h"
  53.         #undef CB_DO_CREATE
  54.         default:
  55.             hr = ResultFromScode(E_FAIL);
  56.         }
  57.     if (*retVal)
  58.         {
  59.         if (pdispVBHandler)
  60.             {
  61.             (*retVal)->m_pVBClass = pdispVBHandler;
  62.             if (bContained)
  63.                 (*retVal)->m_bContained = TRUE;
  64.             else
  65.                 pdispVBHandler->AddRef();
  66.             }
  67.         (*retVal)->AddRef();
  68.         }
  69.     return hr;
  70. }
  71. //---------------------------------------------------------------------
  72. //                  The CCBGenerator Class Factory
  73. //---------------------------------------------------------------------
  74.  
  75. IClassFactory FAR*
  76. CCBGeneratorCF::Create()
  77. {
  78.     CCBGeneratorCF FAR* pCF;
  79.  
  80.     pCF = new FAR CCBGeneratorCF();
  81.     if(pCF == NULL)
  82.         return NULL;
  83.     pCF->AddRef();
  84.     return pCF;
  85. }
  86. CCBGeneratorCF::CCBGeneratorCF()
  87. { 
  88.     m_refs = 0;
  89.     g_cObj++;
  90. }
  91. CCBGeneratorCF::~CCBGeneratorCF()
  92. {
  93.     g_cObj--;
  94. }
  95. STDMETHODIMP
  96. CCBGeneratorCF::QueryInterface(REFIID riid, void FAR* FAR* ppv)
  97. {
  98.     if(IsEqualIID(riid, IID_IUnknown) || IsEqualIID(riid, IID_IClassFactory))
  99.         {
  100.         *ppv = this;
  101.         }
  102.     else
  103.         {
  104.         *ppv = NULL;
  105.         return ResultFromScode(E_NOINTERFACE);
  106.         }
  107.     AddRef();
  108.     return NOERROR;
  109. }
  110.  
  111. STDMETHODIMP_(ULONG)
  112. CCBGeneratorCF::AddRef(void)
  113. {
  114.     return ++m_refs;
  115. }
  116.  
  117.  
  118. STDMETHODIMP_(ULONG)
  119. CCBGeneratorCF::Release(void)
  120. {
  121.     if(--m_refs == 0)
  122.         {
  123.         delete this;
  124.         return 0;
  125.         }
  126.     return m_refs;
  127. }
  128.  
  129. STDMETHODIMP        
  130. CCBGeneratorCF::CreateInstance(IUnknown FAR* pUnkOuter, REFIID riid, void FAR* FAR* ppv)
  131. {
  132.     IUnknown FAR *pcdt = NULL;
  133.     HRESULT hr;
  134.  
  135.     //No aggregation
  136.     if (pUnkOuter || !IIDOK(IUnknown) )
  137.         return ResultFromScode(CLASS_E_NOAGGREGATION);
  138.             
  139.     pcdt = CCBGenerator::Create();
  140.     if(pcdt == NULL)
  141.         {
  142.         *ppv = NULL;
  143.         return ResultFromScode(E_FAIL);
  144.         }
  145.     hr = pcdt->QueryInterface(riid, ppv);
  146.     pcdt->Release();
  147.     return hr;
  148. }
  149.  
  150.  
  151. STDMETHODIMP
  152. CCBGeneratorCF::LockServer(BOOL fLock)
  153. {
  154.     extern ULONG g_cLock;
  155.     fLock ? g_cLock++ : g_cLock--;
  156.     return NOERROR;
  157. }
  158.  
  159.